home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_574_Int_prefPaletteArrows behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  2.3 KB  |  104 lines
  1. property mySprite, myType, myName, myNameDown, myNameOver, myNameInactive, myAction, Active, ancestor, grey, myDirection, myPlaceInSequence
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   myName = (the member of sprite mySprite).name
  7.   myNameDown = word 1 of myName && "down"
  8.   myNameOver = word 1 of myName && "over"
  9.   myNameInactive = word 1 of myName && "Inactive"
  10.   Active = 1
  11.   if word 1 of myName = "prefButtonRight" then
  12.     myDirection = #right
  13.     if myPlaceInSequence = #last then
  14.       goGrey(me)
  15.     end if
  16.   else
  17.     if word 1 of myName = "prefButtonLeft" then
  18.       myDirection = #left
  19.       if myPlaceInSequence = #First then
  20.         goGrey(me)
  21.       end if
  22.     end if
  23.   end if
  24.   lookForToolTip = 1
  25.   ancestor = new(script("FourStatebuttonActions"), lookForToolTip)
  26.   myType = #prefPaletteDisplayArrow
  27.   registerSprite(gActorListMan, mySprite)
  28. end
  29.  
  30. on mouseDown me
  31.   global gClickSprite
  32.   if not Active then
  33.     exit
  34.   end if
  35.   if resWindowUp() or modalWindowUp() then
  36.     exit
  37.   end if
  38.   gClickSprite = mySprite
  39.   doButtonDownClick(myType)
  40.   set the member of sprite mySprite to member(myNameDown)
  41.   ancestor.overStateUp = 0
  42. end
  43.  
  44. on mouseUp me
  45.   global gClickSprite
  46.   if not Active then
  47.     exit
  48.   end if
  49.   if resWindowUp() or modalWindowUp() then
  50.     exit
  51.   end if
  52.   if gClickSprite = mySprite then
  53.     doButtonUpClick(myType)
  54.     if myDirection = #right then
  55.       go(label(1))
  56.     else
  57.       go(label(-1))
  58.     end if
  59.   end if
  60. end
  61.  
  62. on sendResourceButtonsBack me
  63.   sprite(mySprite).locZ = mySprite
  64.   buttonsCovered = 1
  65. end
  66.  
  67. on bringResourceButtonsForward me
  68.   sprite(mySprite).locZ = interfaceBottom()
  69.   buttonsCovered = 0
  70. end
  71.  
  72. on endSprite me
  73.   global gActorListMan
  74.   unRegisterSprite(gActorListMan, mySprite)
  75. end
  76.  
  77. on clearActorList me
  78.   nothing()
  79. end
  80.  
  81. on goGrey me
  82.   global gCursorMan
  83.   Active = 0
  84.   grey = 1
  85.   set the member of sprite mySprite to member(myNameInactive)
  86.   if rollover() = mySprite then
  87.     setCursor(gCursorMan, #Arrow)
  88.   end if
  89. end
  90.  
  91. on goActive me
  92.   Active = 1
  93.   grey = 0
  94.   set the member of sprite mySprite to member(myName)
  95. end
  96.  
  97. on getPropertyDescriptionList me
  98.   propList = [:]
  99.   rangeList = [#First, #mid, #last]
  100.   a = [#comment: "Where in sequence are we", #format: #symbol, #range: rangeList, #default: rangeList[1]]
  101.   addProp(propList, #myPlaceInSequence, a)
  102.   return propList
  103. end
  104.